Tabelle der e-Werte
Ausgabe in Excel-Datei
Aus allen in der Sql-Abfrage gefundenen Nachbargleisbedingungen werden die E-Werte ausgegeben.
Ist Excel auf dem Rechner vorhanden , erfolgt die Ausgabe in die Datei Cargo.xls
sonst wird in eine Datei Cargo.csv geschrieben , die wiederrum in Excel eingelesen werden kann.
Bei leerem Feld wird die Ausgabe nach Excel unterlassen. Bereits existierende Excel-Dateien werden vor Aufruf
von EXCEL, aber nach Abfrage, gelöscht.
Formatierung der Excel-Tabelle
Durch die Datei CargoLeer.xls im Programmverzeichnis kann
die Formatierung der Ausgabe beeinflusst werden. I1:J1 sollten
verbunden sein. Hier wird das aktuelle Datum eingetragen. In Zeile
2 steht die benutzte SQL-Anweisung. Ab Zeile 5 und Spalte B werden
die ermittelten Engstellendaten eingetragen.
Berechnungschema und Felderdefinition
Public Sub eWert(ByVal R&, ByVal V&, ByVal U&, E&)
Dim er&, Ux&, eu&
If R = 0 Then
er = 0
ElseIf R > 250 Then
er = 3750 / R
Else
er = 60000 / R - 225
End If
uf = 11.8 * V * V * Kehrwert(R) - U
If uf < 0 Then uf = 0
If U > uf Then Ux = U Else Ux = uf
If Ux > 50 Then eu = 0.8 * (Ux - 50) Else eu = 0
E = er + eu + 1750
End Sub
.cells(3, 2) = "Fahrgleis"
.cells(3, 4) = "Nachbargleis"
.cells(4, 1) = "Bahnhof/Strecke" (!STR_BEREICH)
.cells(4, 2) = "RiKz"
.cells(4, 3) = "Gleis Bezeichnung" (!Gleis_Cargo)
.cells(4, 4) = "Radius r[m]" (!R)
.cells(4, 5) = "Bahnhof/Strecke" (!STR_BEREICH)
.cells(4, 6) = "RiKz"
.cells(4, 7) = "Gleis Bezeichnung" (!N_Gl_Cargo)
.cells(4, 8) = "Radius r[m]" (!NACHB_R)
.cells(4, 9) = "e-Wert[mm]" (!E)
.cells(4, 10) = "Gleis abstand s[mm]"(!Ber_Abst)